home *** CD-ROM | disk | FTP | other *** search
/ Swimsuit Review 95 / Swimsuit Review 95.iso / mac / Data / swim8.DIR / 00035_Script_35 < prev    next >
Text File  |  1995-07-13  |  648b  |  28 lines
  1. -- Browser Male
  2.  
  3. on mouseDown 
  4.   global MC
  5.   put mouseCast() into MC  
  6.   repeat while stillDown() = 1    
  7.     if mouseCast() = MC then      
  8.       set the castNum of sprite 9 to MC +1      
  9.       updateStage 
  10.       next repeat    
  11.     end if    
  12.     if (mouseCast() <> MC + 1) then set the castNum of sprite 9 to MC    
  13.     updateStage 
  14.   end repeat 
  15. end
  16.  
  17. on mouseUp
  18.   global MC
  19.   set the castNum of sprite 9 to 45  
  20.   updateStage
  21.   if the mouseCast = 45 or the mouseCast = 46 then   
  22.     sound stop 1
  23.     sound playFile 1, "Click.AIF" 
  24.     go to frame "Browser Male"
  25.     hilite line 1 of field "MaleList"
  26.   end if 
  27. end 
  28.